$input = $ARGV[0];
chomp($input);
$output = $ARGV[1];
chomp($output);
open BUFF,"< $input" or die "can't open $input\n";
#open(WRBUFF,">$output");
while($line =<BUFF>)
{
	chomp($line);
	$n =0;
	if($line =~m/A/)
	{
		$arr[$n] = "A";
		$n++;
	}
	if($line =~m/C/)
        {
                $arr[$n] = "C";
                $n++;
        }
	 if($line =~m/G/)
        {
                $arr[$n] = "G";
                $n++;
        }
	 if($line =~m/T/)
        {
                $arr[$n] = "T";
                $n++;
        }
	print @arr."\n";
} 
